unit dmda_UnitGroup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dmModule, FR_DSet, FR_DBSet, DB, ADODB;

type
  Tdtmda_UnitGroup = class(TdtmModule)
    Find_V_da_Base_UnitGrp: TADODataSet;
    adsMasterID: TStringField;
    adsMasterName: TStringField;
    adsMasterWriter: TStringField;
    adsMasterWriteTime: TDateTimeField;
    adsMasterModifier: TStringField;
    adsMasterModifyTime: TDateTimeField;
    adsMasterRemark: TStringField;
    adsMasterType: TStringField;
    adsMastercode: TStringField;
    adsMasterStoper: TStringField;
    adsMasterStopDate: TDateTimeField;
    adsMasterStopMemo: TStringField;
    adsMasterChecker: TStringField;
    adsMasterCheckTime: TDateTimeField;
    adsMasterHasStop: TBooleanField;
    adsMasterHasUse: TBooleanField;
    adsMasterHasDefault: TBooleanField;
    adsMasterHasSysdefine: TBooleanField;
    adsMasterHasCheck: TBooleanField;
    adsMasterEditID: TStringField;
    adsMasterEditcode: TStringField;
    adsMasterEditName: TStringField;
    adsMasterEditType: TStringField;
    adsMasterEditStoper: TStringField;
    adsMasterEditStopDate: TDateTimeField;
    adsMasterEditStopMemo: TStringField;
    adsMasterEditChecker: TStringField;
    adsMasterEditCheckTime: TDateTimeField;
    adsMasterEditHasStop: TBooleanField;
    adsMasterEditHasUse: TBooleanField;
    adsMasterEditHasDefault: TBooleanField;
    adsMasterEditHasSysdefine: TBooleanField;
    adsMasterEditHasCheck: TBooleanField;
    adsMasterEditWriter: TStringField;
    adsMasterEditWriteTime: TDateTimeField;
    adsMasterEditModifier: TStringField;
    adsMasterEditModifyTime: TDateTimeField;
    adsMasterEditRemark: TStringField;
    adsMasterEditFind_TypeName: TStringField;
    adsUnitGroup: TADODataSet;
  private
    { Private declarations }
  protected
    procedure ModuleInit;override;
  public
    { Public declarations }
    procedure OpenEditDataSet;override;
  end;

var
  dtmda_UnitGroup: Tdtmda_UnitGroup;

implementation

{$R *.dfm}

{ Tdtmda_UnitGroup }

procedure Tdtmda_UnitGroup.ModuleInit;
begin
  inherited;
  FUniqueTable := 'da_UnitGroup';
end;

procedure Tdtmda_UnitGroup.OpenEditDataSet;
begin
  FMasterEditTable := 'da_UnitGroup';
  FMasterKeyField := 'ID';
  inherited;

end;

end.
